library(tidyverse)
library(DeclareDesign)
library(rdss)

set.seed(42)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_9.5.R")

diagnosis_9.5 <- 
  declaration_9.5 |> 
  simulate_design(sims = sims) |> 
  summarize(se = sd(estimate)) 

write_rds(diagnosis_9.5, file = "diagnosis_objects/diagnosis_9.5.rds")
